home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program65
< prev
next >
Wrap
Text File
|
2007-02-28
|
493b
|
24 lines
0010 // PROGRAM 65
0020 //
0030 // COMELY KATE
0040 //
0050 // TO PRINT AN ADDITION TABLE
0060 DIM TABLE(4,4)
0070 PRINT
0080 PRINT "+ ! ",
0090 FOR COUNT#:=1 TO 4 DO
0100 PRINT COUNT#," ",
0110 ENDFOR COUNT#
0120 PRINT
0130 PRINT "-------------------------"
0140 FOR ROW#:=1 TO 4 DO
0150 PRINT ROW#," ! ",
0160 FOR COLUMN#:=1 TO 4 DO
0170 TABLE(ROW#,COLUMN#):=ROW#+COLUMN#
0180 PRINT TABLE(ROW#,COLUMN#);" ";
0190 ENDFOR COLUMN#
0200 PRINT
0210 PRINT
0220 ENDFOR ROW#
0230 END